home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gold Medal Software 3
/
Gold Medal Software - Volume 3 (Gold Medal) (1994).iso
/
os2
/
te2_130t.arj
/
TE2INST.003
/
XonXoff.scr
< prev
Wrap
Text File
|
1994-03-28
|
1KB
|
37 lines
;; -------------------------------------------------------------------------
;;
;; XonXoff.Scr -- Copyright (c) 1993-94, Oberon Software, Mankato Mn
;; Author: Brady Flowers
;;
;; Usage: run("XonXoff", "[TRUE|FALSE]")
;;
;; -------------------------------------------------------------------------
global integer usrmnuItems = 4
global integer usrmnuSelect = 1
global string usrmnuTitle = "Xon/Xoff Settings"
global string usrmnuItem1 = "None "
global string usrmnuItem2 = "Transmit only "
global string usrmnuItem3 = "Receive only "
global string usrmnuItem4 = "Both Xmit & Recv "
global integer usrmnuTop = 10
global integer usrmnuLeft = 20
global integer usrmnuAttr = 0x1f
global integer usrmnuHiAttr = 0x71
program
if stricmp(ScriptArgs, "TRUE") == 0
usrmnuSelect = 4
elseif stricmp(ScriptArgs, "FALSE") == 0
usrmnuSelect = 1
else
run("UserMenu")
endif
if (usrmnuSelect >= 1) AND (usrmnuSelect <= 4)
setxonxoff(usrmnuSelect - 1)
endif
end